with reconeixedor; use reconeixedor; 
use reconeixedor.mytree;

procedure main is
prova: expr; 
entrada: string:= "(2*2)*(9*3);";

begin

for i in entrada'range loop
prova.v(i):= entrada(i);
end loop;
prova.n:= 1;

rec_exp_ini(prova);
list_all2;

end main;
